Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE20/TIPTRIX/LISTING1.PAS

Pascal/Delphi Source File | 1997-03-17 | 312 b | 17 lines

class procedure TfmAbout.ShowForm(pOwner: TComponent);
begin
  try
    with TfmAbout.Create(pOwner) do begin
      ShowModal;
      Free;
    end
  except
    ErrorMessage('Something is wrong');
  end;
end;

procedure TMainForm.AboutClick(Sender: TObject);
begin
  TfmAbout.ShowForm(self);
end;